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18300-1984 00:12: AX=11 BLiss-32 v4.0-74 Page 1 
Ve-Sep-1984 12:10:55 ECOantsnedcosPAuse .039; 1 ng 
MODULE COBSPAUSE ( ; COBOL STOP ‘Literal’ statement 

IDENT = *1-007" ! File: Coppause.6s2 | Edit $6L1007 


COBSPAUSE 


BEGIN 


' 
i geeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeetenneeeeneeeeeeeeeeeeeeeees 
'@ 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
' ALL RIGHTS RESERVED. 


® 
® 
® 
® 
: ® 
'® THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ® 
:* ONLY IN ACCORDANCE WITH THE as OF SUCH pints AND WITH THE * 
'# INCLUSION OF a & Po E Slt NOTICE. THIS SOFTWARE OR ANY OTHER * 
‘® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
!® TRANSFERRED. ® i? 
s ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. ® 

® 

® 

® 

® 

® 

* 


:* DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS 


Y 
NOT SUPPLIED BY DIGITAL. 


LR RAHA RARER ER ERA EE ERE A ERATE EERE ATER AAA ATAAAE AEE 
' 


144 
! FACILITY: COBOL Support Library 
i ABSTRACT: 


COBOL STOP ‘Literal* statement: Output string and 
Hibernate. 


' 
r] 
1 
' 
! 
1 
1 
i 
ENVIRONMENT: User Mode - AST re-entrant 
AUTHOR: Thomas N. Hastings, CREATION DATE: 8-Aug-1977 
MODIFIED BY: 

; ’ Thonas .N. Hastings, Peete VERSION 0 

4 a 

: : Outeut FORTRAN PAUSE no 37900 TNH 13-Dec-77. 
; 

1 

3 

' 

t 

i 4 

i 4 

i 4 
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Change REQUIRE files for VAX ulte | uild. GP gg wh 
gid conflicts. DGP 11-May-78 
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Update version number and copyright netics, JBS br "9G-0EC 
Created COBPAUSE from version 1-002 my FORPAUSE. RKR ate 
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D 16 
16-Sep-1984 00:12: Ax-1 
1 =e0-19 4 90:18:84 COBR 
- Made MESSAGE parameter mandatory for COBOL usage 
= Change symbolic name of LIBRARY file. RKR 1-0CT-79 
eee py'sch q claration and cosmetic changes. 


RKR 1 
= Remove ACTUALCOUNT declaration. SBL 16-Jun-1982 


1 Ot ise 
TL.SRC 


=32 V4.0-74 
COBPAUSE .B32;1 


16 
f-ep-1964 00:12:51 YaN=1 Blieg-32 v4.0-763 | Page 3 


COBSPAUSE 1 
2007 1 


; & 064 1! 

5; & 065 1 ! SWITCHES 

| & oer 1 

; $3 0089 } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
Bee $96 1}! 

; ie: 0071 1 ! TABLE OF CONTENTS: 

; £ Boog 1! 

3; 073 1 

3; 0074 1 FORWARD ROUTINE : 

Ve 8 75 «1 COBSPAUSE ; ! juvperts STOP ‘Literal’ statement 
2 76 (1 ! in COBOL. 

; gf 0077 1 

; 0078 1! 

; & 0079 1 ! INCLUDE FILES: 

; 8 0080 1! 

; 8¢ 0081 1 REQUIRE ‘RTLIN:RTLPSECT'; ! Define DECLARE_PSECTS macro 

3 7 8178 : LIBRARY "RTLSTARLE'; ! STARLET Library for macros and symbols 
3; 68S 0178 1 ! MACROS: 

>; 686 ate 4 1! 

5; 6 (CS 180 1 

; & 0181 1! 

. 8158 1 ! EQUATED SYMBOLS: 

3; 0183 1! 

; (91 0184 1 

; F 0185 1! 

2 0186 1 ! PSECT DECLARATIONS: 

; «94 0187 1! 

; WW 0188 1 

; 8496 0189 1 DECLARE_PSECTS (COB); ! declare PSECTs COB$ facility 

; WW 0190 1 

; «#498 0191 1! 

: 99 8136 1 ! OWN STORAGE: 

: 100 0193 1! 

; 101 0194 1 

; 106 0195 1! 

; 10 0196 1 ! EXTERNAL REFERENCES: 

: 104 0197 1! 

; 105 0198 1 

; 106 0199 1 EXTERNAL ROUTINE ; 
3; 107 0200 1 SYSSCLI: ADDRESSING _MODE (GENERAL) : Call command language interpreter (CLI) 
: 108 0201 1 LIBSPUT_OUTPUT: NOVALUE ADDRESS ING_MODE (GENERAL) ; ! Output on device SOUTPUT 


16 


F 
COBSPAUSE 16-Sep-1984 212: AX-11 Bliss-32 V4.0-74 Page 4 
(068) 13=808- 1382 90:18:84 YCOBRTL Ske COBPAUS B33:1 ° (3) 
> 1%0 ¢ 1 GLOBAL ROUTINE COBSPAUSE ( ' COBOL PAUSE etecenens 
335 1 MESSAGE) ! Adr. of string descriptor $e output 
: 11§ ¢ : nt = ! Value returned is SSUSPND completion code 
; 114 6 i FUNCTIONAL DESCRIPTION: 
; 138 38 1/ COBOL PAUSE outputs an string on device SOUTPUT and then 
: iif 8 2 : } calls CLI to pause which puts users back at command Level. 
; 119 Ooi) ! FORMAL PARAMETERS: 
: i 1 0 13 ! MESSAGE .rt.dx ! Adr. of optional é@tring descriptor to output 
: ; 0 15 { IMPLICIT INPUTS: 
: 1 3 6 " Logical device assignment for $OUTPUT (see LIBSPUT_OUTPUT) 
: 197 0219 { IMPLICIT OUTPUTS: 
gees ba 1 
; 131 0998 ' COMPLETION CODES: 
; 138 0995 ; Operating system completion status on SYS$CLI directive 
3 135 0288 i SIDE EFFECTS: 
; ELA 8585 : ! Outputs message on device SOUTPUT and calls SYSS$CLI pause function. 
; 139 0231 1 i-- 
; 140 oS3§ 1 
3: «6141 023 BEGIN 
; 16g Ose LOCAL T; 
3 144 $536 LIBSPUT_OUTPUT (.MESSAGE) ; 
3 6145 0237 T = CLISK_CLISERV + CLISK_PAUSE*256; 
3 146 0238 RETURN SYSSCLI (1); 
3 147 0239 1 END; ! End of routine COBSPAUSE 


«TITLE COBSPAUSE 

IDENT \1-007\ 

-EXTRN SYSSCLI, LIBSPUT_OUTPUT 
-PSECT _COBSCODE,NOWRT, SHR, PIC,2 


0000 00000 -ENTRY COBSPAUSE, Save nothing ; 0202 
5E 04 C2 0000 SUBL2 3P : 
04 AC DD 00 PUSHL MESSAGE : 0236 
000000006 00 1 FB 00 CALLS #1, LIBSPUT_OUTPUT ne 
6E 0105 BF 3C O000F MOVZ2WL #261, T ; 9337 
E DD 00014 PUSHL SP : 0238 
000000006 00 01 FB 00016 CALLS #1, SYSSCLI ; 
04 0001D RET : 0239 


; Routine Size: 530 bytes, Routine Base: _COBSCODE + 0000 


rags See ee ce hea a 


148 40 1 END ! End of module COBSPAUSE 
149 8504 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_COBSCODE 30 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ccnsenes GyEGO(§ eocerecs Pages Processing 
File Total ioaded Percent Mapped Time 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 2 0 581 00:00.7 
COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:COBPAUSE/OBJ=0BJ$:COBPAUSE MSRC$:COBPAUSE/UPDATE=(ENHS: COBPAUSE ) 
Size: 30 code + 0 data bytes 
Run Time: 0:02.2 
Elapsed Time: 00:18.0 
Lines/CPU Min: 


6694 
enemy oe Mage 16277 
nam Used: 32 pages 
Compilation Complete 
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